home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / midas060 / samples / delphi / gplay.dpr < prev    next >
Encoding:
Text File  |  1997-01-16  |  539 b   |  28 lines
  1. program gplay;
  2.  
  3. uses
  4.   Forms,
  5.   gplmain in 'gplmain.pas' {gplform},
  6.   midasdll in '\midas\include\midasdll.pas';
  7.  
  8. {$R *.RES}
  9.  
  10. begin
  11.   MIDASstartup;
  12.   if not MIDASsetOption(MIDAS_OPTION_MIXBUFLEN, 200) then
  13.     MIDASerror;
  14.   if not MIDASinit then
  15.     MIDASerror;
  16.   if not MIDASstartBackgroundPlay(0) then
  17.     MIDASerror;
  18.  
  19.   Application.Initialize;
  20.   Application.CreateForm(Tgplform, gplform);
  21.   Application.Run;
  22.  
  23.   if not MIDASstopBackgroundPlay then
  24.     MIDASerror;
  25.   if not MIDASclose then
  26.     MIDASerror;
  27. end.
  28.